home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
prog
/
svgapv20.arj
/
SVGABC.BI
< prev
next >
Wrap
Text File
|
1994-03-11
|
8KB
|
138 lines
REM SVGAQB,SVGAPV GRAPHICS LIBRARY INCLUDE FILE FOR MS QuickBasic 4.x,
REM MS PDS and MS VBDOS
REM COPYRIGHT 1993-1994 BY STEPHEN L. BALKUM AND DANIEL A. SILL
REM ZEPHYR SOFTWARE P.O. BOX 7704, AUSTIN, TEXAS 78713-7704
REM LAST UPDATE 3/1/94
TYPE P2DType
X AS INTEGER
Y AS INTEGER
END TYPE
TYPE P3Dtype
X AS INTEGER
Y AS INTEGER
Z AS INTEGER
END TYPE
TYPE PROJType
EYEX AS INTEGER
EYEY AS INTEGER
EYEZ AS INTEGER
SCRD AS INTEGER
THETA AS INTEGER
PHI AS INTEGER
END TYPE
DECLARE SUB BLKGET (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, SEG GfxBlk%)
DECLARE SUB BLKPUT (BYVAL Mode%, BYVAL X%, BYVAL Y%, SEG GfxBlk%)
DECLARE SUB BLKRESIZE (BYVAL X%, BYVAL Y%, SEG SourceGfxBlk%, SEG DestGfxBlk%)
DECLARE FUNCTION BLKROTATE% (BYVAL Ang%, BYVAL BackFill%, SEG SourceGfxBlk%, SEG DestGfxBlk%)
DECLARE FUNCTION BLKROTATESIZE& (BYVAL Ang%, SEG SourceGfxBlk%)
DECLARE SUB BYTECOPY (SEG SourceArray%, SEG DestArray%, BYVAL NumOfBytes&)
DECLARE SUB D2ROTATE (BYVAL Points%, BYVAL XOrigin%, BYVAL YOrigin%, BYVAL Ang%, SEG InAry%, SEG OutAry%)
DECLARE SUB D2SCALE (BYVAL Points%, BYVAL XSCALE%, BYVAL YSCALE%, SEG InAry%, SEG OutAry%)
DECLARE SUB D2TRANSLATE (BYVAL Points%, BYVAL XTRANS%, BYVAL YTRANS%, SEG InAry%, SEG OutAry%)
DECLARE FUNCTION D3PROJECT% (BYVAL Points%, SEG ProjParms%, SEG InAry%, SEG OutAry%)
DECLARE SUB D3ROTATE (BYVAL Points%, BYVAL XOrigin%, BYVAL YOrigin%, BYVAL ZOrigin%, BYVAL ZRAng%, BYVAL YRAng%, BYVAL XRAng%, SEG InAry%, SEG OutAry%)
DECLARE SUB D3SCALE (BYVAL Points%, BYVAL XSCALE%, BYVAL YSCALE%, BYVAL ZScale%, SEG InAry%, SEG OutAry%)
DECLARE SUB D3TRANSLATE (BYVAL Points%, BYVAL XTRANS%, BYVAL YTRANS%, BYVAL ZTrans%, SEG InAry%, SEG OutAry%)
DECLARE SUB DRWBOX (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
DECLARE SUB DRWCIRCLE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radius%)
DECLARE SUB DRWELLIPSE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radiusx%, BYVAL Radiusy%)
DECLARE SUB DRWFILLBOX (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
DECLARE SUB DRWFILLCIRCLE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radius%)
DECLARE SUB DRWFILLELLIPSE (BYVAL Mode%, BYVAL Colr%, BYVAL CenterX%, BYVAL CenterY%, BYVAL Radiusx%, BYVAL Radiusy%)
DECLARE SUB DRWLINE (BYVAL Mode%, BYVAL Colr%, BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
DECLARE SUB DRWPOINT (BYVAL Mode%, BYVAL Colr%, BYVAL X%, BYVAL Y%)
DECLARE SUB DRWSTRING (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
DECLARE SUB DRWSTRINGDN (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
DECLARE SUB DRWSTRINGLT (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
DECLARE SUB DRWSTRINGRT (BYVAL Mode%, BYVAL FColr%, BYVAL BColr%, Strng$, BYVAL X%, BYVAL Y%)
DECLARE SUB FILLAREA (BYVAL Xseed%, BYVAL Yseed%, BYVAL BorderColr%, BYVAL FillColr%)
DECLARE SUB FILLCOLOR (BYVAL Xseed%, BYVAL Yseed%, BYVAL OldColr%, BYVAL NewColr%)
DECLARE SUB FILLSCREEN (BYVAL Colr%)
DECLARE SUB FILLPAGE (BYVAL Colr%)
DECLARE SUB FILLVIEW (BYVAL Colr%)
DECLARE SUB FONTGETINFO (SEG WDTH%, SEG HGHT%)
DECLARE SUB FONTSET (FONT$)
DECLARE SUB FONTSYSTEM ()
DECLARE FUNCTION GETARCCOS% (BYVAL Value&)
DECLARE FUNCTION GETARCSIN% (BYVAL Value&)
DECLARE FUNCTION GETARCTAN% (BYVAL Value&)
DECLARE FUNCTION GETCOS& (BYVAL Ang&)
DECLARE FUNCTION GETSIN& (BYVAL Ang&)
DECLARE FUNCTION GETTAN& (BYVAL Ang&)
DECLARE FUNCTION GETSQRT& (BYVAL Number&)
DECLARE FUNCTION GETMAXX% ()
DECLARE FUNCTION GETMAXY% ()
DECLARE SUB GETLASTSTRING (SEG StrngGfxBlk%)
DECLARE FUNCTION GETPOINT% (BYVAL X%, BYVAL Y%)
DECLARE FUNCTION GIFMAKE% (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, FileName$)
DECLARE FUNCTION GIFGETINFO% (FileName$, SEG GifXSize%, SEG GifYSize%, SEG NumColors%, Pal$)
DECLARE FUNCTION GIFPUT% (BYVAL Mode%, BYVAL Xloc%, BYVAL Yloc%, Name$)
DECLARE SUB JOYSTICKINFO (SEG JAX%, SEG JAY%, SEG JAButs%, SEG JBX%, SEG JBY%, SEG JBButs%)
DECLARE SUB MOUSEBUTPRESS (BYVAL ReqBut%, SEG Xloc%, SEG Yloc%, SEG Num%, SEG MButs%)
DECLARE SUB MOUSEBUTRELEASE (BYVAL ReqBut%, SEG Xloc%, SEG Yloc%, SEG Num%, SEG MButs%)
DECLARE SUB MOUSECURSORDEFAULT ()
DECLARE SUB MOUSECURSORSET (MouseCursor$)
DECLARE SUB MOUSEENTER ()
DECLARE SUB MOUSEEXIT ()
DECLARE SUB MOUSEHIDE ()
DECLARE SUB MOUSEINFO (SEG DrvMajorVer%, SEG DrvMinorVer%, SEG MouseType%, SEG IRQnumber%)
DECLARE SUB MOUSELOCSET (BYVAL Xloc%, BYVAL Yloc%)
DECLARE SUB MOUSERANGESET (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
DECLARE SUB MOUSERESTORESTATE (SEG MouseBuf%)
DECLARE SUB MOUSESAVESTATE (SEG MouseBuf%)
DECLARE SUB MOUSESENSSET (BYVAL Xsens%, BYVAL Ysens%)
DECLARE SUB MOUSESHOW ()
DECLARE SUB MOUSESTATUS (SEG X%, SEG Y%, SEG MButs%)
DECLARE FUNCTION MOUSESTORAGESIZE% ()
DECLARE SUB OVERSCANSET (BYVAL Colr%)
DECLARE FUNCTION PAGEDISPLAY% (BYVAL X%, BYVAL Y%, BYVAL Page%)
DECLARE FUNCTION PAGEACTIVE% (BYVAL Page%)
DECLARE SUB PALCHGAUTO (PalString$, NewPalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Speed%)
DECLARE SUB PALCHGSTEP (PalString$, NewPalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Percent%)
DECLARE SUB PALCOPY (SourcePalString$, DestPalString$, BYVAL FirstColr%, BYVAL LastColr%)
DECLARE SUB PALDIMSTEP (PalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Percent%)
DECLARE SUB PALGET (PalString$, BYVAL FirstColr%, BYVAL LastColr%)
DECLARE SUB PALIOAUTO (PalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Speed%)
DECLARE SUB PALROTATE (PalString$, BYVAL FirstColr%, BYVAL LastColr%, BYVAL Shift%)
DECLARE SUB PALSET (PalString$, BYVAL FirstColr%, BYVAL LastColr%)
DECLARE FUNCTION RES320% ()
DECLARE FUNCTION RES640L% ()
DECLARE FUNCTION RES640% ()
DECLARE FUNCTION RES800% ()
DECLARE FUNCTION RES1024% ()
DECLARE FUNCTION RESTEXT% ()
DECLARE SUB SCROLLDN (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
DECLARE SUB SCROLLLT (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
DECLARE SUB SCROLLRT (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
DECLARE SUB SCROLLUP (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Num%, BYVAL Colr%)
DECLARE SUB SDELAY (BYVAL Count%)
DECLARE SUB SETCARD (BYVAL CHIP%, BYVAL MEM%)
DECLARE SUB SETVIEW (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%)
DECLARE SUB SPRITEGAP (BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SpriteGfxBlk%, SEG BkgndGfxBlk%)
DECLARE SUB SPRITEGET (BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SpriteGfxBlk%, SEG BkgndGfxBlk%)
DECLARE SUB SPRITEPUT (BYVAL Mode%, BYVAL TransColr%, BYVAL X%, BYVAL Y%, SEG SpriteGfxBlk%)
DECLARE FUNCTION SPRITECOLLDETECT% (BYVAL TransColr%, BYVAL Sprite1LocX%, BYVAL Sprite1LocY%, BYVAL Sprite2LocX%, BYVAL Sprite2LocY%, SEG Sprite1GfxBlk%, SEG Sprite2GfxBlk%)
DECLARE FUNCTION VIDEOMODEGET% ()
DECLARE SUB VIDEOMODESET (BYVAL Mode%)
DECLARE SUB VIDEOOFF ()
DECLARE SUB VIDEOON ()
DECLARE FUNCTION WHICHCPU% ()
DECLARE FUNCTION WHICHJOYSTICK% ()
DECLARE FUNCTION WHICHMEM% ()
DECLARE FUNCTION WHICHMOUSE% ()
DECLARE FUNCTION WHICHVGA% ()
DECLARE FUNCTION WHICHXMS% (SEG XmsKbytesAvailable%, SEG XmsHandlesAvailable%)
DECLARE FUNCTION XMSALLOCATE% (BYVAL ReqKbytesOfMem%)
DECLARE FUNCTION XMSERROR% ()
DECLARE FUNCTION XMSFREE% (BYVAL XmsHandle%)
DECLARE FUNCTION XMSGET% (BYVAL XmsHandle%, BYVAL OffsetIntoXms&, SEG DestVar%, BYVAL NumOfBytes&)
DECLARE FUNCTION XMSPUT% (SEG SourceVar%, BYVAL XmsHandle%, BYVAL OffsetIntoXms&, BYVAL NumOfBytes&)
DECLARE FUNCTION XMSCOPY% (BYVAL XmsHandle1%, BYVAL OffsetIntoXms1&, BYVAL XmsHandle2%, BYVAL OffsetIntoXms2&, BYVAL NumOfBytes&)
REM $DYNAMIC